| Процедура / функция |
Комментарии |
| Cursor(Flag : boolean); |
Удаляет и выводит курсора на экран монитора
- Параметры
- Cursor(False) - курсор отсутствует;
- Cursor(True) - курсор присутствует.
|
VMenu(K1, K2, Kp : byte;
ss1, ss2, ss3, ss4, ss5, ss6, ss7 : dlina;
Var Rezult : byte); |
Организует вертикальное меню
- Параметры
- K1 - координата Х для вывода вертикального меню на экран монитора;
- K2 - координата Y;
- Kp - количество позиций в вистеме меню;
- ss* - название позиции;
- Rezult - имя переменной, которой присваивается порядковый номер выбранной позиции.
- Пример использования
|
| Pres; |
Останавливает выполнение программы до нажатия любой клавиши.
|
| RDF; |
Переименовывает или удаляет файл
|
| FF(St : string); |
Проверяет существование файла на диске
- Параметры
- Результат выполнения процедуры - одно из перечисленных сообщений:
- Файл St существует и нормально открыт
- Неверный код функции DOS
- Файл St не найден
- Маршрут не найден. Указанный маршрут является недействительным или указывает несуществующий подкаталог
- Слишком много открытых файлов
- Отказано в доступе к файлу
- Недостаточно памяти
- Недопустимый номер дисковода
- Дисковод находится в состоянии "не готов"
- Аппаратный сбой
|
| CF(C, F : byte); |
Устанавливает цвет и фон символа
- Параметры
- С - номер цвета символа;
- F - номер цвета фона.
|
| Frame(X1, Y1, X2, Y2 : integer); |
Рисует рамку по заданным координатам
- Параметры
- X1, Y1 - координаты верхнего левого угла рамки;
- X2, Y2 - координаты нижнего правого угла рамки.
|